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00678200 
0067830C 


: i a OAT AAD OD Se Ss ee oo elas Tet ade ae, 


LOCN =BUFFIBJ#> 
pe MNOe oy Lode 


NINCMING »MIN2 De CIF MINI<MIN2 THEN MINI] ELSE MIN2)&3 


AB AGA JURE» MOVs PEULsENDTESToE ; 
FORMAT 


006/8500 
006/7860CG 


sei hee lo) OOO a ees 


00678900 
00678950 


i ae OO Os ag Hes es a to 


00679100 


TITLEC"REAL TIME TAPE TESTS #UR UNRECOVERED WRITE FAILURES» /» 00679200 


Meets ec smce seers she atonee sents seen someemnety ///),006/9300 
DETAIL CAS#X32A3eX6n"MIXS"e] 3s 06679400 
X3,"CHANNELS ="elesXJo"PHYSICAL REELS “»l5)>s 00679500 
OBUINAME (x88, "CR B NAME 3 "pAleAGeMs"ed ‘We gas OO ae Se ao tee he ey 
FILNAMECX88s"FILE NAME = "sALPABP"/"9A1 > Ab)» 00679700 
ORIGC/>X31*"URIGINAL I/U DESL. = "“p0rerAlsue 00675800 
/eX3ls"QRIGINAL RESULT UES = "sy aXls(jie/)» a QQS?7ggou NN itech a eT hog, es 
ROCCK88s"TAPE NAME = Ms Al ypAGoMs/"s Also Abe/s 00680000 
X68, "REEL = Np Toe/e 006080100 
XBH» tt ATION DATE =. ",sA5, x 00680200 
X88s"CYCLE = U"sla)s | 00680300 
MODEC/ sX3La"(C™, Abe toy [Layt Seah ON BLOCK # MsTSe")%), 00680400 
IINO / "ANAL _3 Lot iM a ee ea, 
X2a"C pr A6,™ WRITES AB a0 G® PATTERN), 00480600 
{peas nanam mam amen mam me) 00660700 
DESCC///e "TEST RATTE "sASeX9e "CHANNELS" ]2e 00680800 cae EN SOO a 
//e"1/0 DESC, = “pureXyrUs 00680900 
/e"RESULT DESCe = “ss xX150e/)s 00681006 
WORDC// [49% wORUS W REC™*sA3e")="s/), 090681100 Ee RTE 
EQLSCXBs6C2C ACHE" Ip Myo HD)» 00681200 
UNKC/ 9X27 9 Mawa ne WORDS "“oef4o™ THRU “sl4e" NOT LOGGED» *, 00681300 
"THER OR N NANQWN #4 weet yy 0068 Q ee ete 
SIZERRORC/>xX160e"SIZE ERRURC "eTSe” WORDS “sAwst yu), Q0068150C 
NOERRORS(/9X162"NO ae CBRN Me 006816006 
A CHR " KR FRUM TES ROD", O06681700  —— _ 
. “CFIRST IN wRO melas"); 00681800 
7 : 00681810 
REAM PROCEDUR FILLPATTERN(PATTERN@K»MsNeBUPFER)$ tooo sis 
VALUE KoeMsN3 00ob82000 
BEGIN 00632100 
13 = 8 Rp LSPA RNS SL2SST+K; 00682200 ee ae 
MCDS%sN CHR3 SI&tsSien)3 00682300. 
STISBUF FERS ee OORe: 00682400 
NDF? O068 00 rh eee Ie a 
BOOLEAN STREAM PROCEDURE eau? ENE MCL aT 00662600 
BEGIN 00682700 
“aa CIF PERT TREN aE EIN TALLY #303 JUMP OUTS. END )3 00682900 
COURAGE A TALLY? (00083000 
END COMPAR! 0.068 0 
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STREAM PROCEDURE RUILDPATTERN(MUD3IGS»PATTERN); 00683200 
VALUE MOO3I0S; 00683300 
B N a ek re ne Ss OOS EO ee ee he 
DIisPaATTERN, 00683500 
DStsta Pepa Sia aa tall ee 00683600 
a a , sOiW73 OStelL JIM" s Ni sehrshde 00683700 BS eee oy 
SLIT™"">) OSss3 LIT*Ig(™s 00683800 
2p SS cLen rea 0068390C 
REAM aaa “DURE 8 YX neh HE KE Xo _O008K 400 1 Rb NA ne SN Te ee EE Vind See eh ele 
VALUE BCL; 00684100 
BEGIN LABEL sae LOCAL SVDIsSvSIesv5 00684200 
ia = it rn RE EE an a a 2 AS Pa Be Ss I i A ti eho 
BCLCS8cCSYDIss01s NIseLOc Svs VIssDI+73 DSI=ECHRS 00664400 
See =S15 ee Sht2GleSve 00684500 
D = 2=CHRs 1133S 2 ) oNe A000 Pere Sig nes 
JUMP OUT TO KIT)3 00084706 
_USTaNDS! 00684800 
EP i a a IO a Ohh sh El 
END mOVEX3 ; OGCé85000 
STREAM PROCEDURE EDITRONsLUCNe BUFF ol) O06031CU 
A z OCN3 N09: bee es ee a ek eres eee et ale Ds 
BEGIN 0068530G 
DLt2b 3 STi=icc LOC COGGS40G 
: 5 eee; Siseburre 2AS50C Be nae A AR 
NCOLPSDT +23 ACOCTADE DS uUlssule1, eli cTauty)), Cgose560U 
OLFSLs OS¢=3 FILL3 coee 1 Oe 
OF : ea Sg eo eT te hs SE aan ih ace Mi OD AEE tt al Mele Ld 
STREAM PROCEDURE GETVALUESC BUFF »CHACNT ok ROCAT sF ST WROD 00683900 
BEGIN 00686000 
We SLE SB H BS a hs ee es OO BUG VOG. S  e a e 
DIS=CHRCNT3 O:eDI+53 vUst=3 CRs 00046200 
DIS =WROCNT 3 CItsDI+63 NSéee CHR; 0U686300 
He WRD Dils=sDi+t S35 rik LO HOwO = pte at RS, 
END GETVALUES; 00686500 
Er eReUne BREAKUCWNRESUL ICs NEUM*RESULT)3 00686600 
ty M3 : pay af M R Si J he O00 * one) = it See ee N ge A Lu 
BEGIN REAL Q} CC666800 
IF CQSSCANALYZEDESC( Bef UMARESUL Ts JUNKBUFFERI@1)%5) GEO O THEN 00686900 
R N Fa ee DOB LOO 8. renee mae ene 
BLANK(L)3 00687100 
FOR Jts0 STEP 5 UNTIL @ Du 00687200 
BEGIN. So ee ee OOOH LAGOA. | Pete tae, | 
MOVECS»JU\KBUPFER(C UJ ®LIWd)> 00687406 
WRITECLPAs1 Seif 4¥l])s 0068750C 
ENDSEND? ps tae re eared N80 - 820 eee nn ee re ee ee 
BLANK(L)3 00687700 
00687800 


END BREAKDOWNRESULT; 


REWINDC(TST)3 00688000 

READCTSTCNOI25» Bl*1)3 ; 00688106 

TERN CMOD =Hi (REZ), Cz ATTERN)3 eae eee aOR ES 805-11 (6 6 eee ae ee 
FILL BUFFL#): WITh 00688400 
OCT12010203040506075 00688500 

ae (). HOC 6 OO6GBRH400 sore es 
0CT7261626364656667» 00648700 
DONIOT A STA6Or Dt6t ts 00688800 

424 344454647> 00688900 : 
Taetees{sssaaosssesrs 00689000 
— 00T2021222324252627>» 00689100 
00730313334 323536373 00689200 
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FILL BMESST#*] WITH 0068930C 
& PEBIT", 00689400 
" tepyT Se a Ee BE se ese OOO RO or nm 
" 2°BIT"» 00689600 
@ " 4=BIT", 00689700 
"  a-BIt" OO6H9B00 
" A=BIT",» 00089906 
e " BEBIT"S 006490000 
b sincl thy sates ee Og6Y90 j CO. a tena cnenem ee ee soa anes 
AGAIN! 00690300 
) READCTST»210eBL 4123 00690400 
NIODt= 8 a ee oe OOO ENO. 
RESULT#= BL4]3 00690600 
eo" OLODCFt= QIOD.E cr]; 00640700 
£zO010N Be VOd ys . 9 
WRITECLPALPAGEJ)3 PRINTMFIDS WRITECLPAsTITLE) 00490900 
@ | WRITECLPACOBL 1, FDATEsTEsB( 206] DAYCT)»ACTDATE D3 006491000 
? ISS al 
SATIMECBL1]¢3!24)) 00691200 
eo.” sNEUMSsTINULUNITCO1006(3%5Jx2)) 00641300 
eBLOJ.C1822I+14 00691500 
oi 2B07),(30218] 00691600 
; SF aS SF 0 i es ae tea 
i IF MIX#0 THEN 00691800 
@: WRITECLPA>UBUNAME? BL201].,CO%OJ} o> BL 201) 281202] .0626)28[202]); 00691900 
BIB Se ae ec eee te ee ee _O029200g 
r WRITECLPAPFILNAMES BC 204),0686) BC 204) 281205) ,(686)»81 205) ); 00692100 
i WRITECLPAs ORIG 00692200 
run ‘e eReats ean Sees 
ia OCT CERVCO. RESULT)» SUCTCONV(4eRESULT) 00692400 
e* 3 00692500 
Bo AK LW AL Fe NE LIM » FR 00692740 
WRITECLPA»s MODE 00692700 
3®@ rLF BLCOLOD+t2141) THEN "BINARY" ELSE "ALPHA " 00692800 
2 a aa en 09692900 
3 STSENELT 21) 00693006 
30 13 00693100 
pe ; WR PAeRD O06 00 
g eBC5S)eCOS67sB(5) Bl O] el O26) Bl6) 00693300 
eo” 28(2],014210) 00693400 
S=DE CMC AL 2: ; J) 3e0 THEN Dis SF OD C0693500 _— 
»DAYC"0) 06693600 
] 2B(2),[41:7] 00693700 
OLODts OGD & 16188423633 00693900 
@ « FOR It=0 STEP 1 UNTIL 15 DO 00694000 
BEGIN ees Q 
WRITECLPAs TESTNU 00694200 
@: elt) 00694300 
YF (BCL ssi>6 AND 1<44 rN ALPHA" SEB Ry‘ 
: IR 1314 THEN * SKEW" ELSE IF I*15 THEN * FLUX" ELSE 00694500 
@r IF Ia? THEN JF MOOD3IOS THEN BMESSCO] ELSE BMESS[6) 00694600 
BMESSCI MUD 7 CO694700 
: eIF I>13 THEN “ "ELSE IF BCL THEN "=OFF" ELSE "ON "00694800 
@F 15 00694900 
Y Aga! LPAsDESce" WRITE " - % : 
: eCRESULTISBINGeIK12%8))e T1982) +4 00695100 
@- >OCTCONV (Os 1001301 008REALCNOT BSUIRETIATALD) 00695200 
ey OC TCON 002. 00695300 
 ] 


@ 
sOCTCONV(UsRESULT) »UCTCUNV(4 RESULT) 00695400 
rd] 3 00695500 
RREAKDOW ; = 00695600 
IF CHEGZE twauscU fopcr= RESULT (oFI)) <n 00695700 
@) THEN WRITECLPAsSIZERROR» BSIZEsSo"WRITEN)) 00695800 
R As WORD B THEN "HC) NINTH); 00695900 
F ILLPATTERNCPATIERN 00646000 
@:: pIFREALCI S15)» Gt 4xKEAL CI <1 42) ¢1+REALCI>1 3) 00696100 
IF WO>6 THEN 00646300 
@ | BEGIN EDITRC6s1*PATT#L)s 00696400 
END 00696600 
eo. IF wort THEN WRITECLPAsEQLS)} 00696700 
fy Ay se) = iN t. a - qa ANK Bred Rees aes, nee : ; 
EULTAURs Es Teac FATT: L)3 00696900 
@ \ WRITECLPACDBL IJ» 15-L04))3 00697000 
ALR RPAsth Per an 0.0.6 
sCRESULTSSBIN+Z I) .L19%82] +3 aaeesooe 
Yd] POCTCONV(Os TOD E=1UU81L 24447511) 00697300 
oc Of 006% O0 
ae Feet Cony co JRESUL Ta OCTCONV( 4» RESULT) 00697500 
e D3 | 00697600 
. BREAKDON “UM es RE ae ree ee AROROR 0 1 sf 1-8 Ay 01s Re eee ee 
g GETVALUES(BUK42]0CHRCNTs WROCNTsLOCN)3 (0697800 
2 @F SZ: IF (BSIZE!SABSCOTUDCF“HESULT.CCFI))>WC THEN WC ELSE 00697900 
€ Ri (RE H bE A > 1 wa 
& BSIZE = REALCRESULT»C15!3350)3 00698100 
2 OF IF SZ#WC THEN WRITECLPAs SIZERROR# SZ ods (REALM D3 00698200 
Q nan : e) Pi 2 ; 
Pa BEGIN 00698400 
Or WRITECLPAsHCRU S29 IF BCL IME "BCL" ELSE "INT")3 00698500 
> : noes As 62802 00698600 
IF R20 THEN Ria; 00698700 
e WRDI =O} PTRt=83 00698800 
NRE) MIN (WROCK i 
é MORETOGt® WROCNT>73 00699000 
eo; FOR Pss0 STEP 1 UNTIL U OL 00699100 
c B a OHO0699900 
MOVEC 6 sPATT#NEXT)3 00699300 
@r NEXTOGS= FALSE? 00699400 
OR TisPTR STEP 1 UNTIL MINWRD 60 00699500 
BEGIN . 00699600 
@ IF (S8eQUFFCTJ) > WRO+S THEN I8=MINWRD ELSE 00099700 
BE G 00699800 
MOVEX(BCL»BLN+1T"3)]* BUFF LZ1+S"WRUIPXLATE D3 00699900 
@ ' IF eo ae THEN IF MORETUG THEN 00700000 
} : O07U01G0 
BLANK(L)3 00700200 
er EOITR (S41 HRD ARO +s NEXTeL)3 00700300 
WRITE CLPAsUNK»S+2» 8294 00700500 
oF GO ENDTESTS hes | 00700600 
Wb NEXTOG?=TRUES 00700800 
—@} END} 00700900 
ei END} 00701000 
IF P30 OR P8D THEN BEGIN BLANKCL)} gu Move END ELSE 00701100 
@r “UFO NEXTOG THEN 00701200 
x a &E eal * oo7al OQ 
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IF COMPARECNEXTeLAST) THEN 007V1400 
OUPESIF DUPTUG THEN GO EOL ELSE BEGIN WRITECLL*)°E@LS)3 00701500 'e 
eo ee PUP TOG SS TROE Py 2 sete = ae 
END 00701700 
ELSE BEGIN 00701800 '@ 
une M () wa i 00703900 etre es : 
EDIT? LASTOGI=NEXTOG3 00702000 : 
ECITRCIF P40 THEN 6 ELSE Re wWaDelsNEXT9L)3 00702100 @ 
DUPTOGLSPALSE O0702200 i 
END 00702300 
ELSE GO MCV 00702400 e 
A e a te (J ial DUPE ; 0070250 O eer ad sal 
WRITECLPAs15eLL¥J)3 00762600 
EQL? WRDtSWRO+6S 00702700 @ 
NOS i es Ft Po here ee  Oo7 02800 aon ee 
ENOTESTS 00702900 
WRITE CLPA» TALLY» CHRCNT*WROCNT oF STWAD4+1)3 00703000 @ 
NDS. e031 hatte, . 
END3s 00703200 
IF CRCNTE=RCNT+1)4TAPETESTS THEN GU AGAING 00703300 '@ 
REWINOCTST)3 00703700—~=été“‘<C; 7 2OO*” ee ea < 
END REPORTAPETESTS 00703806 e 
PRUCEDURE HICA)3 ARRAY ALOI3 “00743000 -_ —_— 

ACOVSSALCLI2ZAL7) 2 =MARKER; 00744000 ‘@ 
Seelam SO MEO Ghats eh acre hE Pt as e 
BOOLEAN PROCEQURE CMPCA2B)% ARRAY AsBLOJ? 00746000 
CMP o8BIF CTA2SA07),07826)) < (T2¢3B07],07:26)) THEN TRUE ELSE 00749000 @ 

PLE NN ALS } : 5 pitens ek Oates ee ee ; ea 
IF (T18SAL0),03%6)) < (1232HL0),03:6]) ThEW TRUE ELSE 00750100 mh 
IF T1 > Te THEN FALSE ELSE 00730200 @ 
22 37224)) THEN TR 00750300 Bok fees eet oe a 
IF T1 > "Te TREN FALSE ELSE 00750400 
IPF CYV40eAL7),63386]) < (T298857).03396)) THEN TRUE ELSE 00750500 “@ 
HEN FALSE FLSE OKO ene 8 
IF (T18SA07].03986)) < (CT 28"BL74.03926)) THEN TRUE ELSE 00751000 ” 
IF Ti > T2 TREN FALSE ELSE 00752000 -@ 
TLtsAl < CU2tsUL7)6 23)) THEN TRUE ELS 00753000 __ ee a 
If Ti > T2 THEN ee ELSE TRUES 00754000 
BOO: AN PROGEDUR NC As B ARRAY A j 00755000 Lee eee 2 
CMPLUNE SIF CTLEEAL7],(195]) < (T2tse07),01%5)) THEN TRUE ELSE 00755100 7 
IF Ti > T2 THEN FALSE ELSE 00755200 i@ 
tsAlQ $6 ¢ i @ £6 - N R 00755300 el eae SR ote lee han ne 2 Beg 
OIF Ti > T2 THEN FALSE ELSE 00755400 i 
IF (TitsACi),(27321)) < (72%98013,027%21]) THEN TRUE ELSE 00755500 '@ 
7 WEN FALS OO7S5600 La ee ee ae 
IF (TL8SA012,03824)) < (72%38011.(3%24]) THEN TRUE ELSE 00755700 I 
IF T1 > T2 THEN FALSE ELSE TRUES 00755800 ‘oi®@ 
755 eres, 4u; 
BOOLEAN PROCEDURE INLUNSORTCA)} ARRAY ALO]3 00756000 * 
-ARGIN oe 00757000 @ 
i 6 * 00758000 _ ye 
IF EL? ISMARKER THEN 00759000 , 
BEGIN REWINO(SWINCJI)3 00760000 l@ 
ae INL. a a es =. 7 ___| 
» END} ENO INLUNSORTS = 00762000 ob 
eRe 00762050 i 
57} 


@ 
BEGIN 00762200 
rd] IF SNCOP(SUMC7)),(195] > LUNMAX IHEN INSORT?® TRUE 00702300 
AD M cil Es oo a eae POPP Pe a Seer ERETNIS 9017 2°- 0}: ee rere ee 
END INSORTS ~ ; 00762500 
@ | % : 00762600 . 
ROCE DURE 01 ORTC Revs VALUF 83 RBOGLEAN Re ARRAY ACOJE = =6p Sr OT HRBNHOUUU 
BEGIN 00764000 
@|: IF 8 THEN 00765000 
N Nik B " : NKE ; x RKER S 0.0766009——- nectar ao 
WRITE CSWOUTC JJ» 10° JUNKBUFFERE*] 3 00767000 
@' REWINDCSROUTE J} 3 | 00768000 
END Gi VS Oe A oe Da a OOP REHNO eaten Rieter ae 
END OUTSURTS 00770000 
er % 00770100 
PROCEDURE REPORTPRH Se a a a mr ee POO Og en oe a ee tte, 
BEGIN | 00772000 . 
e\ ARRAY TOTERREO'1515 00773000 
yy : ae OO OOO ean sy ts Pas EM cath ete ig 
LABEL AGAINe CONPAREs ADDUPsWRITELT s EXITS 00775000 
] BOOLEAN TOG; 00776000 
ORMAT _ OO777000 Settecetee es 
TITLEC"TAPE ERRORS BY PHYSICAL REEL NUMBER" »/> 00778000 
& + ee ee ee ee ee ee ee momma s/f ff ys 00779000 
"PR O."Nee™ XI *He6%eXil-"920" "N19" 00780000 onan e. 
Sf 00731000 
2 @} XLLe"DLBMAXLL¢"DI/MeXI Le "DLOM o/s 00782000 
g wPRN” A . “mem A RES ¥ WR ANK O00 000 Ae sees Ph 
ao X39 "TAPE FETE RCLTE iad tei ae anor READY", | 00784000 
2 OF X3s"DESC PARITY" sX7 "BUSY" s/> . 00765000 
Fay p . Hera tt Hamamamtpy Ss Nmam wae Roma, Aeaame wmewets OO786000 — 
pe XZeNwewe amwweatt yy ys Name amewealg KS, "uaw meowmtt, 00787000 
@F: Kan teres Sesser tan 7 Assi AG 00748000 
tut, KKM RH oFeWa-Lserere poeene 
UNITS(X59 "PRN" 9 X5s "TOTALS"? 00790000 
 ) KBo "MTA" 2 X3¢ "MTB X34 MM TCM s x36 "MTOM 9X32 MHTEMSX3s 00791000 
MT sy MMTK™ 5X 30M 9X 00792000 Jae ach Se 
ET CRPERCLTL LS EVENT CLL 00793000 
e Me OO noe eens hae LOCK Is 8 4/4128 00794000 
: aa : A4 x4 007950 shen alas! 
: DEYAIL (x2 15045» Kae Ade X60 16¢K20 A413) 00796000 
er AGAIN! . 00797000 
: OO79BO0O oe 
PRINTMF 1D ; 00798010 
@ WRITECLPAsTITLE)3 . Q07¥9000 
F TOG THEN WRITE(LFAUNITS) ELSE WRITE(LPAPBITS)3 00800000 ee 
“ZEROCIGsTOTERR)S UERRI=03 . 00801000 
@ READ(SORTEDs 10+AC 4303. 00802000 
HO8O0 3000 eIeveriy ee 
CASTKEY82 ACO, [3:6)3 00804000 
er COMPARE 00805000 
: F_LA: Paniza 18. N 00806000 Z pnd TE Yo hats 
le BEGIN : 00807000 
or. ole LASTREYS atOl, [316] THEN 00808000 
oo hore ‘e OOBO9000 = 
ne 52 ys Te TOG THEN 00810000 
a i BEGIN 00811000 
Eri = a = RR N ; 008 00.0 _ 
_UERREAUERR+1) : 00813000 
or : 2h (00814000 
Yd 
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FOR J:=0 STEP 4 UNTIL 6 OG 00616000 
IF TESTBITCAs¥) THEN 00817000 @ 
D RARON § = e ; REE N pant ae dO) OLY) Ot ar a a i fein. ate 
 UERRt= VERR+ CIF aL Cra) THEN 1 ELSE. 32768)3 00819000 s 
END} 00820000 Jl@ 
ORTED e106 ; eee COORG OCD. Sad i 
END ei ee 00822000 : 
BEGIN 00823000 -@ 
a = OOB82Z4000 Lon Z 
WRITECLPALDBLI»DETAIL»LASTPRN» 00825000 
IF LASTKEY#21 THEN "CONF" ELSE * ", 00826000 -@ 
Se OY al 9 ea 1 ¥en DC ee bes ee Pte 
FOR Nt=0 STEP 1 UNTIL id DU DECLCTOTERREINI)) 00828000 
ELSE 00829000 @ 
WR p AA oe : ede Seis th i eta octet A 
IF LASTKEYS21 THEN "*CONF™ ELSE " ", 00831000 
DECLCUERRM.CFF J)» DECLCUERRS LCF) )» 00832000 @ 
2 ~P 2 thas te when So A eset ah Rte 
IF PRN > 99999 THEW GO EXITS 00834000 i 
IF LASTPRNZ PRN THEN WRITEC(LPACOBLI)3 00835000 @ 
ROC L462 TOTERR RRLEOS 00836000... arenes Bete an ee 
LASTPRNt= PRN} 00837000 
LASTKEY?= ACO]s(3%6)3 00838000 .@ 
Oo ApDUP 00839000 eae eente 
END 00840000 ‘ 
END ELSE GO WRITEITS 00841000 ‘@ 
O COMPAR ee Fa ee ee Oo842000 = vu 
EXIT: 00843000 
REWIND( SORTED); 00844000 re r 
NO 7 HE A 7 Sg aN A a Bang a le a eet cece ON se ose ea as ah allt neds ky ” 
BEGIN TOGt:= TRUE; 00846000 . 
GO AGAIN} 00847000 @ 
NO OO0848000 pag eer ATA tad aed cis 
END REPORTPRN3 00849000 \ 
x 00850000 1@ 
PROCEDURE REPORTBADISK: vans Be 00850020 . eee ok, 7 
BEGIN 00850040 4 
REAL LASTEUPLASTSUS 00850060 @ 
ps A BR AK OD a See oe OOO SOO BO! 5 ics le moe ete we ee eh att 
DEFINE 00850100 
BK =BREAKOOWNE, 00850120 e 
=aK 00820140 a ch ce Nat et re 
SU ay eeEr 00850140 se 
SET =BK(3]#, 00850180 \@ 
ZONE =BK 00650200 indie a 
TRACKSBK[6)#> 00850220 iE 
HEAD =BK(81#>» 00850240 in @ 
“ean SAK rol: 00850260 ees Aha 
LABEL AGAINeLINE 1, 9ETUPSEXITS 00850280 me 
FORMAT 00850300 "@ 
"BADISK AREAS BY DISK ADDK Q it 09550320 ee NOI “i 
$8 en an oo sj 0 oo ana 2 @ Gem HEM ee eee mt .////)» 00850340 e@ 
: HEADING (XS °BEGINNINGH#/2 Reis 00850360 a 
‘ ane eval K ZONE H0850380 2A _ ie 
aT eae HEAD. PIN"»/» 00850400 62 
X Gee weanee aaa aman wae om mats Kh, towne snae Ws 00850420 3@® 
Uy rere ae om oom wo tt : eel wedaalie gees aiiee on gh. 6a 2 Cet ea a 
DETAIL(XG*ALPAGsX te TBO KS2ALSAGSAL AL» R69 X60 00850460 tle 
Pike Lis XSs Aas Xe Taek Sot 4 : 00850480 by 
. HHOKBSOSON sls Neth gs Uelee gh Bie ch cl shawnspe pees i, 
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% 00850520 
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BEGIN LABEL LisbL2rL3eL4sX1T73 01022000 '@ 
= DitelO =8 "OQSTOP "5 tsple73 22: _ . epee tees a ek re 
Lit IF sca" « THEN BEGIN Sli=Sle1} GU Lis END; 01022200 os 
IF SC=ARROM THEN GO XITS 01022300 & 
HEN . a " )5 O10 g24009 So as eh eth Ae oe 
L2: IF SC™ALPHA "THEN BEGIN esas GO. Les ENDS 01922500 oe 
L3¢ IF SCa" " THEN BEGIN SlssSl413 GU L3s ENDS 01022600 @ 
= 1 18 : ute 
BEGIN 01022800 a 
DStaLITyons 01022900 -@ 
: 0 O00 ee le 
IF SC2" " THEN GO L4s 01023100 [" 
7CIF SGSALPHA THEN UStscCHR ELSE DSt=LIT™ "95 01023200 1@ 
NOS 0 2 00 re rete, Oa ton 
XIT! 01023400 | 
END SCANS 01030000 “@ 
ee OY OS OOO et EN M4 
INPASS{8=TRUES 01031100 : 
DRUMTOG! =SUMPILET UG: =CROSSTOGIHALTOG$#X0TUG35F ALSES 01031200 @ 
i= PF Ys), 010: 00 rh 
TAPERRORS1=DISKERRORS? =TAPETESTS3=03 01031400 i 
FINDYT! 01032000 '@ 
MEd $= TIM 01033000 pre Pe et Z 
PROCTIMES= TIME(2)3 01033100 a 
IOTIMES= TIME(3)3 04033200 e 
OMMON Ze HEN a a Eee i 
BEGIN 01035000 * 
; WRITECSPOCSTOP1>WFILE)S 01036000 rt ) 
2 READC SPO) 9, AL #103 01937000. ee " 
END ELSE 01038000 ae 
BEGIN 01038100 A® 
| READCFINPUT+ 10, AL ¥*1)3 01038200 a 
END} 01038300 e 
ALO] ta MARKER; -FIOt= LOGFID} 01039000 “i @ 
SCANCAsM D3 : Q1040000 7 7 ei 
IF MFID="STOP  ™ THEN GU TO EUPS 01042000 82 
MAINTLOGS S(MFIDS"MAINT ")3 01042100 3 @ 
: Q 54 
oo  -CLOSECLOG)3 & JUST TO BE SURE: 01043000 a 
FILL LOG WITH MFID-FIDS 01044000 Jl@ 
noe ie NO te IN ALE IN ae OAGaeSoo0n zt % op 
@ °® 
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REEDS 


PERTPS 


O6v0B! 


LENE 


@ °® 
BEGIN 01045100 
SEARCH(LOG? AL #13 01046000 e 
—(« ei th O10 OOO ek ptie 
BEGIN WRITECSPO,NFILEsLMFID)3. i 01048000 
GO FINDITS | 7: 01049000 @ 
WD : oe 04050000 ios po a Ne ee ae es Le, 
END USEFINPUTS 01051000 ; 
01052000 @ 
READ e At = tse ts se its 
SEGSt= ALO).(24215)+24REAL (MAINTLOG)3 01058000 
ACROSSTOGH= NOT CACO] < 093 04059000 @ 
; [ha ae TS a ene ted os eaten see Mine Sn ae eae eee ON EERE E AE PEON ISNT Se Tire PE tate ite AO CR OES A Re : 
BEGIN SPOUTCL»MFID»FIDeDAY(~AL4] ) + LECL(SEGS) 5 01061000 
~  WRITECSPGs10eL0C*))s GO FINDITS 01062000 @ 
NO pian, acetate a tt ns 
LASTENTRYS=AL0O],09%1523 01063100 
STOPTIMFIzA({),(3%24];3 % JN BINARY (1/60THS) 04963200 ® 
: Oe ME = @ “lay TOF fa STLLM z : OiVe U4) Seer ioe te 
LOGVERSION!=A[313 01063400 
NAXTYPEt sLOGVERS ION. 30163 01063500 © 
a UN $ = a \ 34. O 6 3A00 poten ces. sh “a 
STOPDATES = AC4]; % IN BCL CYYOOD) 01064000 
SPACE(LOG, 51 : 01066000 e 
READ(LOGLNO]»5eAL*])3 01068000 
LASTENTRY SSL ASTENTRY“ALOJ «(25114 ]41 5 01068100 @ 
DA =cCp = 6 MCA (30218 - : 
START INE t= Att), (3232473 04970000 iM 
| 01071000 »@ 
“READ a sAt* J FENDE ; 01072060 ae _ Sa att ga pases wate 
LOGENTRY%= RCNT$= RCNT#13 01073000 lst 
IF CTYPEF=ALO1,{346]) = 0 THEN GU REELS 01074000 @ 
A LO. = MARKER THEN GO EXIT»? 0190/5000 se noite anatn Fk , 
01076000 
NUMENTRIES#= NUMENTRIES#15 01076100 @ 
SAO 9290) 01076200 ae 
IF I>MAXENTRY THEN GO INVALDINOEX; 01076300 
MOVE(5eAsB)3 01079000 @ 
: t= 7p N ( 01080000 ae Sern m 
BEGIN READ(LOGr5+AC*) )LENDUFILE]3 01081000 
: RCNTSs RCNT #15 01082000 @ 
MON wT A ie ee ane ee A EIS | sc a : 
ENDS 01084000 ce 
IF TYPE>MAXTYPE THEN GO REEDS 61084100 _,@ 
Oo SWTYP 01085000, Pre ee se ies 
01066000 ie 
‘IF LISTOG OR SUWTOG THEN PERIPHANOLER: 01087000 @ 
nD CROSSR 01068000 a a 
01089000 len 
BE2).C3tiS]t= LOGENTAYS 01090000 mJ 
MOVE C3,Bl¢ ARCMIxt=Bl0J,020!21,(0))3 ; 01091000 _ anes na! et) 
IF MIX>MIXMAX THEN MIXMAXS 9H 1X3 01992000 1. 
ao CROSSREF 3 01093000 \@ 
01994000 ae nia 
BL2]et3ti5)1= LOGENTRY? 01095000 52 
IF (FNUM?SBL0},09%9])>MAXFNUM THEN FNUMESMAXFNUMS 01095100 4 @ 
MOVE 3,B£2) + JARLCMIX? 5BL0}[2051]) »FNUMX3))3 01096000 oes isd 
LOGENTRY.C3015)2= JARCMIXeO]eC 3115) 01097000 9 
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a é 0 4, i 2 5 5 ; 


5.8 8 FS RE ER 


: 


HALOD: 


Jt= JARCMIX%=BL01].020°5)-0),03'15);3 


we eae: : 


185 SW 5 1 0103 © Rae Sen ee a eRe ee er 


01100000 
IF CRUSSTOG THEN 01100100 
d ave’ 
IF TABLEL3LeT Jey THEN TABLEC31°1J, C3215) &® LOGENTRY3 04102000 
LOGENTRY,[3215) tS 3 01103000 
268 OO A M ¢ O00 
GQ CROSSREF 01165000 
01106000 
a HEN 0 LODO 
BEGIN 01108000 
BLANK (CL 23 01109000 
MOVEMESS(BL2)9L)3 01111000 
a race: 01112000 
r) AITI™ B }% 3 WRITEDOUGB ; RRA E ater 
SE IECLESIEFOITE 01414000 
#CDATESBDECM(BL1). (30338) 01115000 
DA oF: 
PACTDATE 01117000 
}4 WRITEDOUBLES 01148000 
ae! ‘8 = a H fete _O1119000 
END; 01120000 
GO CRGSSREF3 01121000 
; t} oleze' 
N?2B(3),(€43t5)3 011262100 
IF N>20 THEN N&=205 & MAXIMUM OF 20 ELS 01122200 
- ) = ; Bo coe a Recs Se aig Se PS eer, eee a ee Ze ee 
SETEUSPEEDCNS BC 3]2EUSPEED)S 01123000 
FOR It#y] STER 1 eget MIXMAX DO epee 
RO OO AR 25000 
MIXMAX!s Q3 BiTeeooe 
IF LISTOG THEN 01127000 
Q " O112800 
BLANK(L)3 01129000 
IF’ NQT HALTOG THEN 011330000 
BEGIN 01131000 
WRITEPAGES 01132000 
MOVEMESS(CBL4),L 03 01133000 
WRITEDOUBLES 01134000 
WRITECLO*JeFTIMEsATIMECB01).63%3249)33 WRITEDOUBLES 01135000 
WRITECLI*] sF DATE 01136000 
PCDATESSDECM(BI4).0£30218) 01137000 
»QDAYCCDATE) 01138000 
sACTDATE 01139000 
: WR B Q O000 
ENO ELSE 014141000 
‘BEGIN FINDOPTIONSCBC4S Jobs ; 01142000 
AR DAU 8 a le ee ee OO 
HALTOG?33 FALSE3 01144000 
ENDs 01145000 
Ms A AR DOU i 0 G000 
WRITECLE® J @NEUPNDS WRT TEDOUBLES ; 01147000 
FOR 131 STEP 1 UNTIL N ODO ag & 01148000 . 
RECT a a : : te ; _ O41149000 
WRITECLO*J] *MODEL 01150000 
sie 011591000 
: 2Jx20— 01153000 
oS )} WRITEDOUBLES 01154000 
ND : : : 6) SS000 
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e ~~ — as @ « 
BLANK(L)s WRITESPACES(4)3 011560000 
@ END 01157000 e 
1 CRUSSREFS a a en ir en tt 

TMDAT? 7 01159000 ' 

@) . IF BC3]40 THEN 01160000 @ 
=f M8 a TE et tf Asp hn bost j 
BEGIN 01162000 

@'|: CDATE?=I3 01163000 @ 
: Se el a pe ale te a eas wee eee ee 

BEGIN 01105000 
@; WRITEPAGE3 | 01166000 e 
PTIMEsATIMECHL{I,£32241))3 WRITEDOURLE; ss et e7oOO.—‘“‘<‘“‘“‘“‘;COOOOC~™” 

WRITECLE* J oF DATE 01168000 : 

ey sCDATE 01109000 4 
; ACTOATE —s 01171000.—«”™” ~ s 

@}: )3 WRITEDUUSLE} 01172000 @ 

i # a ee Se ee OTS OOO oS ORs a ee ee asia asichthe a “ i 

ENDS 01174000 

e GO CROSSREF: 04175000 -@ 
xD1SK3 a OOO ae x Soe ee i 
: IF LISTOG THEN 01177000 c 

@ BEGIN . | 01178000 .@ 
_BLANK(L)? sp gk a ci aT a ned a Oe SO OOO ea Se ane nln pe, 
MOVEMESS(BL3]>Li11)3 01160000 : 

@} LOO]ss "  & ATIMECDLiseL3te4])LLsiy829]3 01181000 @ 
Ps ; Se i Ne on ON 1, ee re . _ 

Rs ENDS 01183000 hs 
@r IF SUMTOG THEN 01183050 n®@ 
P ; : ‘ 8 0.0 fe ach : = a 
Ps IF XOBADISK(B[3]»B8L(BL2]+11!1))> JUNKBUFFERL2]) THEN 01183150 n 
@r BEGIN 01183200 “@ 

MO} . “Rae 0 8 eet AINA rsa 
JUNKSUFFERC71# JUNKOUFFERTAI€JUNRBUPFERLSIC0109105)) 01183300 
e WRITECBAD ISK» 10+ JUNKBUFFERL #194 01183350 "@ 
XOTO = TR ‘ 83400 donee Se ae TN eee ae Ee I IE ee ; ; 1° oe! 
END} 01163450 boy 
e END3 01183500 ~@ 
= CR REF: 0 00 A: ° 
FECOM 01185000 
ee LF LESTOG THEN 01186000 | @ 
: BEGIN Saat BE ig nee, Mi TI POG eg a pe dn ce et ae 2 ve oat 
BLANK(L)3 01188000 
& MOVEMESS(BL2]sL(2])3 01189000 @ 
Ojt= ™ @ ATIM 3124 ,)[1:1922943 01190000 ee cos 
LULJ#® “OMMENT " @ 19018631593 01191000 . 
@ WRITESPACES(3)3 : 01192000 4@ 
ND () 3000 Se Sue ; Bis 
GO CROSSREF3 01193106 a 
eo TAPETST! 01193200 / @ 
‘TOG Th | | free ce ne aa A SU na ee Fi we ge ee oN. oy _h4 
s BEGIN | 01193400 : | » 
@; MOVE (3+ JAREMIX188.01 (20151401,812003)3 , 01193500 oY 4@ 
929 MAX HEN NUMA SMAXE NUM O. 0 2 eae Std. et, Gahutsee eel 
MOVE (3+ JAREMIXsFNUMX31260203))3 01193600 z 
BL206)t= CDATES 01193700 1@ 
| To210,BL¥))i TAPETESTS3= TAPETESTS+]3 93800 Ashore as ogi leo 
, : igi ae ; = Pecan o113606 6 
‘ _CRUSSREF pete ee ee ae 01194000 c*, | 1@ 
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g 2) 4, 4 4 zy ¢, 5 3 3 = > 


Be 


@ 
BEGIN 011496000 
IF TYPE < 12 TREN 01197000 @ 
BEGIN agent ah ee te ee ee PPR OO De. cates : 
IF MIX#0 THEN LUGENTRY$® LOGENTRY & JAREMIX,0)] (333%15)3 01199000 
IF FNUMAO THEN LOGENTRY#® LUGENTRY & JARCMIXsFNUMX3) C1813%15)% 01200000 |e 
ASLE Ne CINXCLUNI3= INXCLUN) + 3 jie 00 eeeree ae 
END ELSE 01202000 : 
BEGIN 01203000 @ 
AB PE t3 9 N x GENTRYS 01204000 2S, ; 
ENDSEND3 01205000 
GO REED; 01205300 ©@ 
ON ee, OT IT! 8S 1 200 101) kee a a et ee ee er 
IF ONLTOG THEN 01205300 
BEGIN 01205400 @ 
Dp 2 Ze Pe ¥ 014205500 ae sh ala Re a Rae tee RD, 
BEGIN 01205600 
MOVEC7*BrL); 01205700 & 
t oF: 722 AOgO eee = 
Ci7ite 08 CLUNI=UNITCBL31e[ 23 COPE ATTET 5)3 01205900 
IF BLOJ,C18%2s=1 THEN TAPE 01206000 \@ 
“3 N Ot 2 OB OO. ee et eet ed re 
LeOTt= LOO] & BELIC|/se7i2aiys 041206200 
Le7]%= Lo7) & BL7ILiS9230%18) & 01206300 '@ 
aves 23 2¢ sara n oa eet “) 
Lr8)]%= TPECNFCOsMIX:SB(uJ,C2035)]3 01266500 ‘ 
LO9]%= TPECNFECLsMIAQ3 01206600 .@ 
ND . us Dette OO ROO 2 2 , 
BEGIN 01206900 a 
BREAKDOWN ADDRESS (BL 2174); 01207000 @ 
8 ta Yeas bay” 
ACOJLS? 23:25] & BO3]t33% 2786] & Bl2]C4ltitals n1e0700 " 
END} 01207400 ie 
wf “MP Q * 01207500 ee tee ee ee eee ee , 
SUMFILET@G%= TRUE 01207600 mn 
ENO ELSE . 01207700 .@ 
Pes AND & t2lsi 7 2 ae ul 
BEGIN TPECNF(C»MIxtsBlLOJe(20%5j]Ji= BLS) 01207900 ‘ 
TPECNFC1eMIXI]3= BLOODS 01208000 @ 
NOs 0120U8100 eee ee oS 
ENDS 01208200 : 
GO CROSSREF; 01208300 -@ 
’ 0 SAaaOO ee ee ST an 
END PASS13 01208500 0 
% 01226000 @ 
PROCEDURE PA ____O1227009 Fe es eae 
BEGIN LABEL CLEANUP; . 01228000 a 
FORMAT st, 01228100 i @ 
WRAPUP fi "LQ SxS ,AL PAG "Ss" eA A6 - 04228200 ; Cees desc 
Q2C/7o™LOG “sAS#X1359ASeX2>AGP "DAYS “eo OsX30A5)0 01228300 iy 
//s"LOG ENTRIES "»X4r159" OF "sUs 01228400 »@ 
"EU : MENTS" sX O1e28 00 ps tt EH PM ed ae 
///e PROCESSOR TIME ("eIGe" MIN, "FSade" SECA, 01228600 
/7o41/0 TIME "elde™ MING “sF Sele” SEC." 01228700 «@ 
eu NELAPSED TIME ", "oOMIN, NSEC." 73. ele _ Stee ase et . 
INPASS1t2=FALSE} a2 26000 z 
IF SUMTOG THEN 01229000 J @ 
TR SUMFILETOG THEN % THERE ARE ERROR ENTRIES IN SUM FILE ECLOy . 66 
BEGIN . | ee wey 01231000 i@ 
ALT te MARKER wR "ETEMP cA 33. oe : ane : iy eat 0 O0 Beet Ulloa ras, eis oMeuebte Ate _b 
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5 E n 5 ik 3 TS 3 3 > 


eo e'é* 


REWINDC TEMP); 
Jt= 03 

OR QR A MP 1 Pr) 
READCSUMINO] 93 
GROUPTOTALSCOsTAPERRORS)3 


PL Fe SN a DION. 


01231200 
01231300 


—OLe 31400 


01231500 
01232000 


BEGIN 01234000 
REWIND (SUM); REALCSUMCNOS)5 01235000 
= 13 NMAX 2 = ane 01236000 
SORTCOUTSORTs INSORTsOsHI »CMP*10%6000)3 01237000 
REPORTPAN3 01238000 
Ni) a OOOO... 
GROUPTOTALS(1L*#CISKERRURS)3 01242000 
Si DISKERRORSZC THEN 01243000 
SPACE(SUMs=DISKERRORS)S REAO(SUMENG])F 8 01245000 
Jist? LUNMAX$s 193 01246000 
i a » LR al ais: 4 * ha § C000 H = 
REPORTADDRESS; 01248000 
END3 01250000 
AD M OG5 ee OG 
IF XDTOG THEN 01250100 
BEGIN O12 0130 
SMA ai a « r . a MA O : a i * H 3 ) a8 a nS Stn a ot as 
REWIND(BADISK)3 aoe taes 
Jtsd2 01250300 
a: all ORT 2 
REPORTBADISK3 01250400 
END es 01250450 
Q PLE eee 
BEGIN 04250550 
IF DRUMTOG THEN BEGIN ari READCSUMENOIJ)3 ENDS 041251000 
OR SEZ"REA T ST 3 SROUPTOTALS( JsT ; 25200 
ENDS 01252050 
END SUMTOG3 01252100 
0 a AP STS#FO0 THEN REPORTAPE 25 ett 
IF LISTOG THEN 01253000 
BEGIN 01254000 
PEFO THEA 01234100 
BEGIN 01254200 
BLANK(LI$ WRITEDOUBLES 01254300 


whl $ rt NAL MP PAs A i ate th ee OO) So ore et eee ec sihtintieiety 


WRITEQOUBLE3 01254500 
END} 01254600 : 
71:=10233 WR PBD»s 18sLL*))5 01255000 so cease 
REWIND(PBD)3 , 01256000 
WHILE TRUE 00 01257000 
7 N 01258000 cea rors 
READCPBDs18,L CJ )3 01259000 
IF EOFPBD TKEN GU CLEANUPS 01260000 
PAG HEN ‘ : —O26100Q at BS ol 
BEGIN 01261010 
~ WRITECLPALPAGE]) 3 01261020 
PRINTMF IC} 01261030 teeta 
ENO ELSE 01261040 
IF SINGLESPACE THEN WRITECKPAS15-+LE*]) ELSE 01262000 
IF OOUBLESPACE THEN WRITECLPALCOBL)> pASeLf*)) ELSE 01263000 
BEGIN WRITECLPAs15eL 0a) 93. 01264000 
MRETEICPAs SPACES CC 1973 12: re 014265000 


RENO Be epee 


1426600 
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BS ESSERE SRS 


G a, a 4 r ‘ 0 ; 5 


ES B50 ae Se et a ee 


pa ited eee ON Os ee el te ke 


ENDS 01267000 
CLEANUP? 01268000 
N BD see te IT EV OOD. a. =. = 
END LISTOG; 01270000 
peel Ae 
M REWIND M 2 oxexe 
WRITECLPACLPAGE]);3 DA e7oebO 
ia 3 01275010 
BOUME SS(L» TIME, TIME(6)rDAYC> TIMEQ)sATIMECTIMEL)» 01277000 
rey rho ea) all lve 01278000 
- of, —O-4 2790 OO SS SA NN hence se sees me me 
IF ETYPE%O THEN 01279100 
BEGIN 01é/7%200 
NR A iA KMINALMESSAGAL « it Se Se Oe 
END} 01279400 
av ROSTENTRY <NUNENTRIES OR MAINTLOG THEN oie 7208 
i Fe « HBO 

Whey cL Pa hace 01¢80900 
PEO (ere ber beter erie 01281000 

Fi RTO4 JOLCB2OOO 
e"END "eSTOPDATE* DAY(STOPDATE)» ACTOATE AT Ie (STOPTINE) 01283000 
sNOMENTRIESSEASTENTAYSOEGS 01294000 
e€Ta/6C) = T1x460 01286000 
eTits(T2%=s TIMECRII*IUTIME) DIV 3600 01287000 

2/60) = Timxdy 
eTite(T2ts TIMECLI“TIMEL) DIV 3460 01289000 
#(T2/60) = Tixéd 01290000 
a Se a OOP OO 08 ne 

ENO PASS23 01293000 
O01e474000 
2TAR e 01295000 
01296000 
INITIALIZE3 01297000 

ARTUP PS a ee OV ASR O00s = bet 
PASS13 01299000 
FINISHUP? 01300000 

PASS23 Q1301000 
GO STARTUP; 01302000 
01303000 

agpyt as 
ETYPE&=13 01305000 
GO RENTER; 01306000 
NVALDINDEX? _. 01307000 
ETYPE?=2; 01308000 
GO RENTER: . 01309000 
NTEGRO wi OS ie saa See ares See cone en QE ep OD O08 Bx ty 

ETYPE:=3; 01311000 
GO RENTER; 01312000 
XPONQG d We 01313000 
ETYPE $643 01314000 
GO. RENTER; 01315000 
(BYZFRO? 01316000 
ETYPE3=5;3 01317000 
GO RENTERS 01318000 


Ye pe. TINO 
hae ETYPES=65 : 01320000 
ORENTERE - 01321000 
: % never i ORONO 
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ALPHAL®=MESSCidgtI]s ALPHAC?SMEOS[1L3+I)3 01323000 
WRITECTERMINALME SSAGAL J sF TERMINATE *LALPHA)3 01324000 
Al hy Ai M Al * i i ae . 
IF INPASS1 THEN GO FINISHUPS : , 01326000 
_ GO STARTUPS _—— 014327000 
8 : Ne ne ee eh 5 neal ree See toe ers : Pane ay 
FINISt 01329000 
END PROGRAM. 01330000 
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LABEL 
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